home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 3
/
64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_A.d64
/
checksummer vc20
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
35 lines
10 rem***************
11 rem* *
12 rem* checksummer *
13 rem* *
14 rem* v3 vc20 *
15 rem* *
16 rem* written *
17 rem* maerz 1985 *
18 rem* by *
19 rem*f. lonczewski*
20 rem***************
21 print"[147] checksummer v3 vc-20[146]"
22 print"einen moment, bitte..."
23 fori=827to1019:reada:pokei,a
24 ps=ps+a+1:nexti
25 ifps<>24464thenprint"pruefsummenfehler !":end
26 sys981:print"checksummer aktiviert."
27 print"an :sys981"
28 print"aus:sys58459, bei cas- sette zusaetzlich run/stop & restore"
29 print"bei aktiviertem check-summer kein";
30 print" cassetten-betrieb (load, save) erlaubt!":new
31 data32,95,3,134,122,132,123,32,115,0,170,240,243,162,255
32 data134,58,144,10,162,0,134,255,32,121,197,76,225,199,162
33 data1,134,255,76,156,196,166,255,224,1,240,3,76,96,197
34 data160,2,169,0,170,133,254,177,95,240,40,201,32,208,3
35 data200,208,245,133,253,138,41,7,170,240,14,72,165,253,24
36 data42,105,0,202,208,249,133,253,104,170,232,165,253,24,101
37 data254,133,254,76,119,3,192,4,48,219,198,214,165,214,72
38 data162,3,169,32,157,1,4,189,209,3,32,210,255,202,16
39 data242,166,254,169,0,32,205,221,169,62,32,210,255,104,133
40 data214,32,135,229,169,141,32,210,255,162,0,134,255,240,148
41 data9,60,18,19,169,59,141,2,3,169,3,141,3,3,165
42 data186,201,1,208,16,169,116,141,48,3,141,50,3,169,196
43 data141,49,3,141,51,3,173,136,2,141,170,3,96